Storm Dataset Visualization with Plotly

plot <- df |> plot_ly(y=~fct_reorder(status, wind), x=~wind, color=~status, type='box') |>
  layout(showlegend=FALSE)
plot
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors